home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / misc / emu / ATUtilities.lha / ATUtilities / BASIC / VESA.BAS < prev    next >
BASIC Source File  |  2000-09-26  |  543b  |  42 lines
  1. $INCLUDE "REGNAMES.INC"
  2.  
  3. REG %AX,(&H4F*256)+2
  4. REG %BX,&H101
  5. CALL INTERRUPT &H10
  6.  
  7. for i=0 to 255
  8.  r=255-i
  9.  g=20
  10.  b=i
  11.  REG %CX,(g*256)+b
  12.  REG %DX,(r*256)
  13.  REG %AX,(&H10*256)+&H10
  14.  REG %BX,i
  15.  CALL INTERRUPT &H10
  16. next
  17. beep
  18.  
  19. DEF SEG = &HA000
  20. f=0 : p&=0 : s=0
  21. FOR y=0 to 480
  22.  for x=1 to 640
  23.   POKE p&,INT(f)
  24.   p&=p&+1
  25.   if p&>65535 then
  26.    s=s+1
  27.    REG %AX,(&H4F*256)+5
  28.    REG %BX,0
  29.    REG %DX,s
  30.    CALL INTERRUPT &H10
  31.    p&=0
  32.   end if
  33.  next
  34.  f=f+0.5
  35.  if f>254 then f=0
  36. NEXT
  37. BEEP
  38.  
  39. WHILE INKEY$="":WEND
  40. END
  41.  
  42.